home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga2 / emenu12.lha / EditMenu.rexx next >
OS/2 REXX Batch file  |  1993-11-13  |  5KB  |  155 lines
  1.  
  2. /*
  3.  
  4. Presents users with a hot-keyed menu that allows quick/easy editing
  5. of ALL their user-settings from one location:
  6.  
  7. >                      --- Edit Menu ---
  8. >
  9. > [T]erm settings (Computer, width, height, color, graphics)
  10. > [P]references   (Editor, macros, signatures, protocol)
  11. > [U]ser account  (Address, city, state, phone)
  12. > [F]ile          (Formatted public and private files about you)
  13. > Pass[W]ord      (Change your password)
  14. > [.]plan         (Free-formatted text file about you.)
  15. > [H]elp          (?)
  16. > [A]ccount       (Other's)
  17. > [G]roup levels  (0-31)
  18. > [D]ata file     (Any)
  19.  
  20. Choices "A" "G" "D" will only appear if you are online under acct #1.
  21.  
  22. Choice "." will allow users to edit a text-file about themselves.
  23. (Without touching their public or private finger-questionairre files.)
  24.  
  25. Installation:
  26.    1) c:Copy EditMenu.rexx TO pfiles:rexx/EditMenu.rexx
  27.    2) c:Copy Plan.rexx TO pfiles:rexx/Plan.rexx
  28.    3) Edit CNet:BBSmenu adding the following 2 lines onto the
  29.       END of the list marked "2; Available everywhere":
  30.       >  EDIt | {#0 Pfiles:Rexx/EditMenu.rexx}
  31.       >  PLan | {#0 Pfiles:Rexx/Plan.rexx}
  32.    4) Edit CNet:BBSmenu adding the following 1 line onto the
  33.       TOP of the list marked "2; Available everywhere":
  34.       >  E.~EDIT;.
  35.  
  36. Use EditMenu.rexx (this file) to allow users to CREATE their own .plan files.
  37. Use Plan.rexx to allow users to DISPLAY other user's ".plan" files.
  38.  
  39. Pfiles:rexx/EditMenu.rexx by
  40. Bill Beogelein
  41. Box 530441
  42. Livonia, MI 48153
  43. BBS 810-473-2020, Fido 1:2410/207
  44.  
  45. $VER: EditMenu.rexx v1.2 Fri 12-Nov-93 22:54:23
  46.    Added PASSWORD-edit powers.
  47.    Tested under CNet v2.94-beta.
  48.  
  49. $VER: EditMenu.rexx v1.1 Sun 08-Aug-93 04:29:53
  50.    First release.
  51.    Better detection of "SysOps".
  52.    Added .plan editor
  53.  
  54. $VER: EditMenu.rexx v1.0 22-Sep-92 03:23:11
  55.    Test version
  56.  
  57. Ignore:
  58.    lz u CNet3:EditMenu.LHA Pfiles:Rexx/EditMenu.rexx Pfiles:Rexx/Plan.rexx a:zzzBBSad
  59.    Copy CNet3:EditMenu.LHA UP:
  60.  
  61. */
  62.  
  63. options results
  64.  
  65.             /* Start of SysOp-settable variables */
  66. maxLines=40 /* Max # of lines of user's ".plan" file (Default=40) (0=none) */
  67.             /* End of SysOp-settable variables */
  68.  
  69. YES = (1==1)
  70. NO  = (0==1)
  71.  
  72. 'getuser' 39; home   = RESULT
  73. 'getuser' 40; acct   = RESULT
  74. 'getuser' 41; id     = RESULT
  75. 'getuser'  1; handle = RESULT
  76. If(acct==1 & id==1) then SysOp=YES; else SysOp=NO
  77.  
  78. do forever
  79.    'transmit' "n1 >9 >9 --- Edit Menu --- n1"
  80.  
  81.    'transmit' " [T]erm settings (Computer, width, height, color, graphics)"
  82.    'transmit' " [P]references   (Editor, macros, signatures, protocol)"
  83.    'transmit' " [U]ser account  (Address, city, state, phone)"
  84.    'transmit' " [F]ile          (Formatted public and private files about you)"
  85.    'transmit' " Pass[W]ord      (Change your password)"
  86.    if(maxLines>0) then 
  87.    'transmit' " [.]plan         (Free-formatted text file about you.)"
  88.    'transmit' " [H]elp"
  89.  
  90.    if(SysOp) then
  91.    do
  92.       'transmit' " [A]ccount       (Other's)"
  93.       'transmit' " [G]roup levels  (0-31)"
  94.       'transmit' " [D]ata file     (Any)"
  95.    end
  96.  
  97.    'sendString' "n1 Choice: "
  98.  
  99.    'getchar'
  100.    ch=upper(RESULT)
  101.    
  102.    if(ch='Q' | hash(ch)=13 | hash(ch)=27) then  /* [Q]uit or [RETURN] or [ESC] */
  103.    do
  104.       'transmit' "Q"
  105.       exit 
  106.    end
  107.    'transmit' ch
  108.  
  109.    if(ch='T') then 'bbsCommand' "ET"
  110.    if(ch='P') then 'bbsCommand' "EP"
  111.    if(ch='U') then 'bbsCommand' "EU"
  112.    if(ch='F') then 'bbsCommand' "EF"
  113.    if(ch='W') then 'bbsCommand' "PW"
  114.    
  115.    if(ch='H' | ch='?' | ch='/') then
  116.    do
  117.       'transmit' "n2In addition to using `EDIT' to access this menu,"
  118.       'transmit' "you can also use `ET' `EP' `EU' `EF' `PW' `E.', respectively,"
  119.       'transmit' "to jump directly to that particular menu."
  120.       'transmit' "(All are available from any '>' menu-prompt system-wide.)"
  121.    end
  122.    
  123.    if(maxLines>0 & ch='.') then
  124.    do
  125.       'transmit'   "n3You are about to be placed into the editor.n1"
  126.       'sendString' "You will be allowed to write a short" maxLines || "-line public text-"
  127.       'sendString' "file about yourself that others will be allowed to view by using the "
  128.       'sendString' "command:  PLAN" handle
  129.       'query'      "n2Hit [RETURN] to continue "
  130.  
  131.       fname="Mail:Users/" || home || "/.plan"
  132.       'loadEditor' fname
  133.       'callEditor' maxLines
  134.       'saveEditor' fname
  135.    end
  136.  
  137.    if(SysOp) then
  138.    do
  139.       if(ch='A') then 'bbsCommand' "EA"
  140.       
  141.       if(ch='G') then
  142.       do                    /* Why doesn't CNet have this prompt for "EG"??? */
  143.          'query' "n1 Edit which group 0-31: "
  144.          'bbscommand' "EG" RESULT
  145.       end
  146.       
  147.       if(ch='D') then 'bbsCommand' "WF"
  148.    end
  149.  
  150. end
  151. exit
  152.  
  153. /* EOF Pfiles:Rexx/EditMenu.rexx (c)1993 810-473-2020 BBS */
  154.  
  155.